Option Explicit On

Public ver_menu1, ver_menu2, ver_submenu23 As Boolean

Private Sub btnm1op1_Click()
    llena_tb(ActiveControl.Name)
    ocultar_submenus()
    ver_menu1 = False
End Sub

Private Sub btnm1op2_Click()
    llena_tb(ActiveControl.Name)
    ocultar_submenus()
    ver_menu1 = False
End Sub

Private Sub btnm1op3_Click()
    llena_tb(ActiveControl.Name)
    ocultar_submenus()
    ver_menu1 = False
End Sub

Private Sub btnm2op1_Click()
    llena_tb(ActiveControl.Name)
    ocultar_submenus()
    ver_menu2 = False
End Sub

Private Sub btnm2op2_Click()
    llena_tb(ActiveControl.Name)
    ocultar_submenus()
    ver_menu2 = False
End Sub

Private Sub btnm2op3_Click()
    ver_submenu23 = Not (ver_submenu23)
    btnm2op3s1.Visible = ver_submenu23
    btnm2op3s2.Visible = ver_submenu23
    btnm2op3s3.Visible = ver_submenu23
End Sub

Private Sub btnm2op3s1_Click()
    llena_tb(ActiveControl.Name)
    ocultar_submenus()
    ver_menu2 = False
    ver_submenu23 = False
End Sub
Private Sub btnm2op3s2_Click()
    llena_tb(ActiveControl.Name)
    ocultar_submenus()
    ver_menu2 = False
    ver_submenu23 = False
End Sub

Private Sub btnm2op3s3_Click()
    llena_tb(ActiveControl.Name)
    ocultar_submenus()
    ver_menu2 = False
    ver_submenu23 = False
End Sub

Private Sub btnMenu1_Click()
    ocultar_submenus()
    ver_menu1 = Not (ver_menu1)
    ver_menu2 = False
    btnm1op1.Visible = ver_menu1
    btnm1op2.Visible = ver_menu1
    btnm1op3.Visible = ver_menu1
End Sub

Private Sub btnMenu2_Click()
    ocultar_submenus()
    ver_menu2 = Not (ver_menu2)
    ver_menu1 = False
    btnm2op1.Visible = ver_menu2
    btnm2op2.Visible = ver_menu2
    btnm2op3.Visible = ver_menu2
End Sub

Sub ocultar_submenus()
    btnm1op1.Visible = False
    btnm1op2.Visible = False
    btnm1op3.Visible = False
    btnm2op1.Visible = False
    btnm2op2.Visible = False
    btnm2op3.Visible = False
    btnm2op3s1.Visible = False
    btnm2op3s2.Visible = False
    btnm2op3s3.Visible = False
End Sub

Private Sub btnSalir_Click()
    Unload(Me)
End Sub

Sub llena_tb(n As String)
    tbEvento.Text = n
End Sub

Private Sub UserForm_Initialize()
    ver_menu1 = False
    ver_menu2 = False
    ver_submenu23 = False
End Sub
